5 REM COPYRIGHT 1992 - COMPUTE PUBLICATIONS INTL LTD - ALL RIGHTS RESERVED
10 IFPEEK(830)=1THEN720
15 IFPEEK(27296)<>169THENLOAD"LOG.ML",8,1
17 POKE808,225:POKE146,0
20 POKE53281,6:POKE53280,6:CLR:DIMF$(100):TP$(0)="XXX":TP$(2)="PRG":TP$(1)="SEQ"
30 TP$(3)="USR":TP$(4)="REL"
40 H$="0123456789ABCDEF"
50 PRINTCHR$(142);"[147][144] (C) 1992 COMPUTE PUBLICATIONS INTL LTD"
51 PRINT"           ALL RIGHTS RESERVED"
55 PRINT"          F I L E  L O G G E R"
60 PRINT"   [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
80 PRINT"                            "
90 PRINT" 1 -- [158]LOG DISK"
100 PRINT" 2 -- [158]EXIT TO BASIC"
120 PRINT"PLEASE SELECT (1 - 2):";:POKE204,0
130 GETA$
140 IFA$="1"THEN180
150 IFA$="2"THENPOKE204,1:PRINTA$:END
170 GOTO130
180 PRINT"[147] SEND OUTPUT TO PRINTER (Y/N):";:POKE204,0
190 GETA$
200 IFA$="Y"THENPOKE204,1:PRINTA$:Z=4:GOTO230
210 IFA$="N"THENPOKE204,1:PRINTA$:Z=3:GOTO230
220 GOTO190
230 PRINT"[147]LOOKING AT DIRECTORY...";:BM$="":OPEN15,8,15,"I":OPEN3,8,3,"$"
240 CLOSE4:OPEN4,Z:DN=Z-3:TB=10*DN
250 FORX=1TO142:GET#3,A$:NEXT:PRINT".";
260 FORX=1TO16:GET#3,B$:BM$=BM$+B$:NEXT:PRINT".";
270 GET#3,A$,A$:GET#3,I1$,I2$
275 IFZ=4THENPRINT#4,CHR$(13);CHR$(13)
280 PRINT"[147]";:PRINT#4,TAB(TB);"        BAM TITLE             ID"
290 IFZ=3THENPRINT"        [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
295 IFZ=4THENPRINT#4,TAB(TB);"        ------------------------"
300 ID$=I1$+I2$:PRINT"";:PRINT#4,TAB(TB);"        ";:PRINT#4,BM$;"      ";ID$
305 IFZ=4THENPRINT#4,CHR$(13);CHR$(13)
310 PRINT"";:PRINT#4,TAB(TB);"   TRK SEC BLKS    FILENAME     TYPE"
320 IFZ=3THENPRINT"   [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
325 IFZ=4THENPRINT#4,TAB(TB);"   ---------------------------------"
330 FORJ=1TO92:GET#3,A$:NEXTJ
340 M=M+1:GET#3,K$,T$,S$:IFS$=""THENS$=CHR$(0)
350 F$="":FORJ=1TO16:GET#3,A$:F$=F$+A$:NEXTJ
360 FORJ=1TO10:GET#3,A$:NEXTJ
370 L=0:IFA$<>""THENL=ASC(A$)
380 PRINT#4,TAB(TB);"   ";:PRINT"";
390 L$=RIGHT$(STR$(L),2):IFLEFT$(L$,1)=" "THENL$=" "+RIGHT$(L$,1)
400 IFASC(T$+CHR$(0))=0THENIFL=0THEN560
410 T$=RIGHT$(STR$(ASC(T$)),2):IFLEFT$(T$,1)=" "THENT$="0"+RIGHT$(T$,1)
420 S$=RIGHT$(STR$(ASC(S$)),2):IFLEFT$(S$,1)=" "THENS$="0"+RIGHT$(S$,1)
430 K=ASC(K$+CHR$(0))-128
440 IFK<1ORK>5THENK=0
450 PRINT#4,T$;"  ";:PRINT"";
460 PRINT#4,S$;"  ";:PRINT"";
470 PRINT#4,L$;"   ";:PRINT"";
480 K$=TP$(K):PRINT#4,F$;" ";:PRINT"";
490 IFK=0THENPRINT"";
500 PRINT#4,K$:IFK<>2THEN520
510 F$(Q)=F$:Q=Q+1
520 GET#3,A$:IFM<8THENGET#3,A$,A$:GOTO540
530 M=0
540 IFST=0THEN340
550 CLOSE3
560 PRINT:PRINT"[158] DISPLAY START [158]& END [158]ADDRESSES (Y[158]/N[158]):";:POKE204,0
570 GETA$
580 IFA$="Y"THENPOKE204,1:PRINTA$:GOTO610
590 IFA$="N"THENPOKE204,1:PRINTA$:POKE830,0:GOSUB900:RUN
600 GOTO570
610 SYS27296
620 PRINT#4,CHR$(13);CHR$(13):PRINT"[147]"
630 CLOSE3:X=-1
640 PRINT"";:PRINT#4,TAB(TB);"     FILENAME         START   END"
645 IFZ=4THENPRINT#4,TAB(TB);"     -----------------------------"
650 IFZ=3THENPRINT"     [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
660 X=X+1:IFF$(X)=""THENPOKE830,0:GOSUB900:RUN
670 PRINT"";:PRINT#4,TAB(TB);"     ";F$(X);" ";
680 FORV=16TO1STEP-1:P$=MID$(F$(X),V,1)
690 IFP$=CHR$(160)THENNEXTV
700 F$=LEFT$(F$(X),V)
710 POKE830,1:LOADF$,8,1
720 A=PEEK(828):B=PEEK(829)
730 PRINT"";:GOSUB780
740 PRINT#4,"  ";
750 A=PEEK(175):B=PEEK(174)
760 PRINT"";:GOSUB780
770 PRINT#4:GOTO660
780 PRINT#4,"$";:W=A:GOSUB790:W=B:GOSUB790:RETURN
790 J=INT(W/16):I=W-J*16
800 A$=MID$(H$,J+1,1):B$=MID$(H$,I+1,1)
810 PRINT#4,A$;B$;:RETURN
900 PRINT:PRINT
905 PRINT"       PRESS ANY KEY TO CONTINUE"
910 FORDE=1TO100:GETA$:IFA$<>""THEN950
920 NEXT
930 PRINT"       PRESS ANY KEY TO CONTINUE"
940 FORDE=1TO100:GETA$:IFA$<>""THEN950
945 NEXT
946 GOTO905
950 RETURN